home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Retrace.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.5 KB  |  91 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Retrace.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__RETRACE__') = 'UNDEFINED' THEN
  18. __RETRACE__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  27.     include 'OSUtils.a'
  28.     ENDIF
  29. ;        include 'MixedMode.a'                                        ;
  30. ;        include 'Memory.a'                                            ;
  31. VBLTask                 RECORD    0
  32. qLink                     ds.l    1
  33. qType                     ds.w    1
  34. vblAddr                     ds.l    1
  35. vblCount                 ds.w    1
  36. vblPhase                 ds.w    1
  37. sizeof                     EQU    14
  38.                         ENDR
  39.  
  40.     IF GENERATING68K THEN
  41.         Macro
  42.         _GetVBLQHdr
  43.             dc.w     $2EBC
  44.             dc.w     $0000
  45.             dc.w     $0160
  46.         EndM
  47.     ELSE
  48.         IMPORT    GetVBLQHdr
  49.     ENDIF
  50.  
  51.     IF GENERATING68K THEN
  52.         _SlotVInstall:    OPWORD    $A06F
  53.     ELSE
  54.         IMPORT    SlotVInstall
  55.     ENDIF
  56.  
  57.     IF GENERATING68K THEN
  58.         _SlotVRemove:    OPWORD    $A070
  59.     ELSE
  60.         IMPORT    SlotVRemove
  61.     ENDIF
  62.  
  63.     IF GENERATING68K THEN
  64.         _AttachVBL:    OPWORD    $A071
  65.     ELSE
  66.         IMPORT    AttachVBL
  67.     ENDIF
  68.  
  69.     IF GENERATING68K THEN
  70.         _DoVBLTask:    OPWORD    $A072
  71.     ELSE
  72.         IMPORT    DoVBLTask
  73.     ENDIF
  74.  
  75.     IF GENERATING68K THEN
  76.         _VInstall:    OPWORD    $A033
  77.     ELSE
  78.         IMPORT    VInstall
  79.     ENDIF
  80.  
  81.     IF GENERATING68K THEN
  82.         _VRemove:    OPWORD    $A034
  83.     ELSE
  84.         IMPORT    VRemove
  85.     ENDIF
  86.  
  87. ;
  88. ; Custom Glue for 68k.
  89. ;
  90.     ENDIF ; __RETRACE__
  91.